<!--#include file="treelistcontrol/treelistcontrol.asp"-->
<%
	dim tree
	set tree = new treelistcontrol

	'specify our default settings for the tree
	tree.allowrowselect = false
	tree.showborder = false
	tree.pathtoicons = "treelistcontrol/"
	tree.showdividers = false

	'define the columns for the tree
	tree.addcolumn "Node Name", "", ""
	tree.addcolumn "Day of Week", "100", ""
	tree.addcolumn "Month", "100", ""
	tree.addcolumn "Random Number", "80", "right"
	
	dim id, parentid, theday, themonth, thenumber
	randomize
	for id = 1 to 100
		'make some random values for the tree
		parentid = int(rnd*id)
		theday = weekdayname(int(rnd*7)+1)
		themonth = monthname(int(rnd*12)+1)
		thenumber = formatnumber(int(rnd*1000000),,,true)
		
		'add the node
		tree.addnode id+0, parentid, "treelistcontrol/icon_folder.gif", false, array(id+0, theday, themonth, thenumber)
		
	next
	'reveal node #100
	tree.revealnode 100
	
	response.write tree.value
%>